home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / activestate_perl.nasl < prev    next >
Text File  |  2005-01-14  |  2KB  |  73 lines
  1. #
  2. # This script was written by Renaud Deraison <deraison@cvs.nessus.org>
  3. #
  4. # Script audit and contributions from Carmichael Security <http://www.carmichaelsecurity.com>
  5. #      Erik Anderson <eanders@carmichaelsecurity.com>
  6. #      Added link to the Bugtraq message archive
  7. #
  8. # See the Nessus Scripts License for details
  9. #
  10.  
  11. if(description)
  12. {
  13.    script_id(11007);
  14.    script_version ("$Revision: 1.7 $");
  15.    name["english"] = "ActiveState Perl directory traversal";
  16.    script_name(english:name["english"]);
  17.  
  18.    desc["english"] = "
  19. It is possible to execute arbitrary commands on the remote
  20. server by using ActiveState's perl.
  21.  
  22. Solution : Upgrade to the latest version
  23.  
  24. Reference : http://online.securityfocus.com/archive/1/149482
  25.  
  26. Risk factor : High";
  27.  
  28.  
  29.    script_description(english:desc["english"]);
  30.  
  31.    summary["english"] = "Determines if ActivePerl is vulnerable";
  32.    script_summary(english:summary["english"]);
  33.  
  34.    script_category(ACT_ATTACK);
  35.  
  36.    script_copyright(english:"This script is Copyright (C) 2002 Renaud Deraison");
  37.    script_family(english:"CGI abuses");
  38.    script_dependencie("find_service.nes", "http_version.nasl");
  39.    script_require_ports("Services/www", 80);
  40.    exit(0);
  41. }
  42.  
  43.  
  44. #
  45. # The code starts here
  46. # 
  47.  
  48. include("http_func.inc");
  49.  
  50. port = get_http_port(default:80);
  51.  
  52.  
  53. if(!get_port_state(port))exit(0);
  54.  
  55. sig = get_kb_item("www/hmap/" + port + "/description");
  56. if ( sig && "IIS" >!< sig ) exit(0);
  57.  
  58. quote = raw_string(0x22);
  59.  
  60. item = string("/.", quote, "./.", quote,  "./winnt/win.ini%20.pl");
  61. req = http_get(item:item, port:port);
  62.  
  63. soc = http_open_socket(port);
  64. if(!soc)exit(0);
  65.  
  66. send(socket:soc, data:req);
  67. r = http_recv(socket:soc);
  68. http_close_socket(soc);
  69. if("Semicolon seems to be missing at" >< r)
  70. {
  71.  security_hole(port);
  72. }
  73.